home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #3 / Amiga Plus CD - 1997 - No. 03.iso / pd / programmierung / alienbreed3d2_src / cheesesauce / screensetup.s < prev    next >
Text File  |  1997-01-31  |  976b  |  70 lines
  1. ; Format of copperlist:
  2.  
  3. COPSCRNBUFF:
  4.  dc.l 0
  5.  
  6. ;104*80 lots of $1fe0000 initially.
  7.  
  8. ;$106,$c42
  9. ;$80
  10. ;pch: 0
  11. ;$82
  12. ;pcl: 0
  13. ;
  14. ;$88,$0
  15. ;
  16. ;Length= (104*80*4)+16
  17.  
  18. INITCOPPERSCRN:
  19. ; Get Screen memory
  20.  
  21.  move.l #2,d1
  22.  move.l #(104*80*4)+16,d0
  23.  move.l 4.w,a6
  24.  jsr -198(a6)
  25.  move.l d0,COPSCRN1
  26.  
  27.  move.l #2,d1
  28.  move.l #(104*80*4)+16,d0
  29.  move.l 4.w,a6
  30.  jsr -198(a6)
  31.  move.l d0,COPSCRN2
  32. ; move.l #1,d1
  33. ; move.l #(104*80*4)+16,d0
  34. ; move.l 4.w,a6
  35. ; jsr -198(a6)
  36. ; move.l d0,COPSCRNBUFF
  37.  
  38.  move.l COPSCRN1,a1
  39.  move.l COPSCRN2,a2
  40.  
  41.  move.w #(104*80)-1,d0
  42.  move.l #$1fe0000,d1
  43. clrcop:
  44.  move.l d1,(a1)+
  45.  move.l d1,(a2)+
  46.  dbra d0,clrcop
  47.  
  48. ; add.l #104*4*80,a1
  49. ; add.l #104*4*80,a2
  50.  move.l #$1060c42,(a1)+
  51.  move.l #$1060c42,(a2)+
  52.  move.w #$80,(a1)+
  53.  move.w #$80,(a2)+
  54.  
  55.  move.l #PanelCop,d0
  56.  swap d0
  57.  move.w d0,(a1)+
  58.  move.w d0,(a2)+
  59.  move.w #$82,(a1)+
  60.  move.w #$82,(a2)+
  61.  swap d0
  62.  move.w d0,(a1)+
  63.  move.w d0,(a2)+
  64.  move.l #$880000,(a1)+
  65.  move.l #$880000,(a2)+
  66.  clr.b BIGsmall
  67.  jsr putinsmallscr
  68.  rts
  69.  
  70.